Hi habe folgendes-Problem und kenn mich nicht so richtig aus.

Ich habe eine XML-Datei mit einem Adressenverzeichnis und die dazugehörige xsd-datei.

So und die möchte ich auslesen und in eine Tabelle schreiben. Dabei komme ich nicht weiter das

die Überschriften richtig geschrieben werden, bzw das sie überhaupt geschrieben werden. Es sind quasi Überschrift und darunter kommen nochmal drei oder vier überschriften also z.b. Name als überschrift und dann Anrede vorname nachneme als quasi unter-überschrift.

Hier der Code den ich bis jetzt dazu habe.

Private Sub button_anwenden_Click()

' Deklarationen
Dim VarXSDname As String
Dim Datensatz As String
Dim VarXMLname As String
Dim XMLDatensatz As String
Dim headline As String
Dim name As String

Worksheets("Desktop").Activate
ActiveWindow.Zoom = 100
Cells.Select
With Selection
    .ClearContents
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlTop
    .NumberFormat = "@"
End With

If Daten_Eingabe.button_XSD.Value = True _
    Then
        VarXSDname = Daten_Eingabe.eingabe_XSDDTD.Text
        Open VarXSDname For Input As #1
          While Not EOF(1)
              Line Input #1, Datensatz
           
               If InStr(Datensatz, ":element") > 0 Then
                 If InStr(Datensatz, "name") > 0 Then
                   headline = Mid("name", 6, 6)
                
                   ' Element-Name ermitteln
                   ' Element-Name speichern
                 End If
               End If
               If Right(Datensatz = "/>") _
                   Then
                       ' entsprechende Element-Datentyp Zeile formatieren
                       'Tabellenspalte hochzählen
                   Else
                   If InStr(Datensatz, "</") > 0 _
                     Then
                       '   Elementebenennummer Zeilennummer runterzählen
                     Else
                       ' Elementebenennummer/Zeilennummer raufzählen
                       '                        höchste Ebenennummer
                       '                       Tabellenspalt hochzählen
                   End If
               End If
          Wend
        Close #1
        
  If Daten_Eingabe.button_XSD.Value = True _
    Then
        VarXMLname = Daten_Eingabe.eingabe_XML.Text
        Open VarXMLname For Input As #2
            While Not EOF(2)
                Line Input #2, XMLDatensatz
            Wend
        Close #2
  End If
  
End If

End Sub

Jo wenn mir da jmd. weiter helfen könnte wäre echt super.

Danke im Voraus ! :-)